home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Text
/
Edit
/
XDme
/
S
/
.edrc
next >
Wrap
Text File
|
1994-12-22
|
10KB
|
283 lines
#
# XDME startup-file
#
# $Id: .edrc 1.1 1994/08/14 14:13:24 digulla Exp digulla $
#
# give XDME more CPU-time
taskpri 1
# Preferences; take care, these values override the config
savetabs on
autounblock on
# see the following 2 lines as constant definitions ... make things easier
settoggle 1
resettoggle 0
# some other stdt Prefs ...
set macroname PROGDIR:Macros/?.xrc
set iconname ENV:Sys/def_Text
set printout t:printout
set PRINTER prt:
set OkCncl OK|Cancel
set lastcmd ()
# Make menus
menuoff
menuclear
setmacro mh 1 (set menu \$arg1)
setmacro m+ 2 (menuadd \$menu \$arg1 \$arg2)
setmacro m- 0 (menubar \$menu)
setmacro m/ 3 (menucheck \$menu \$arg1 \$arg3 if (\$arg2) (menusetcheck \\\$menu \\\$arg1 1))
setmacro mi 1 (set menuitem \$arg1)
setmacro mi+ 2 (menuadd \$menu \$menuitem^S\$arg1 \$arg2)
setmacro mi- 0 (menuadd \$menu \$menuitem^S^B ())
setmacro mi/ 3 (menucheck \$menu (\$menuitem^S\$arg1) \$arg3 if (\$arg2) (menusetcheck \\\$menu \\\$menuitem^S\\\$arg1 1))
mh Project
m+ `New...^AN' A-n
m+ `Load...^AO' A-o
m+ `Insfile...' arpinsfile
m+ `Project load' projectload
m-
m+ `Save^AS' A-s
m+ `Save as...^AA' A-a
m+ `Save & Iconify' `A-s A-i'
m+ `Project save' projectsave
m-
m+ `Print^AP' A-p
m+ `Print as...' `title `Not yet :-)''
m-
m+ `Iconify^AI' A-i
m-
m+ `Save & Quit' `A-s A-q'
m+ `Quit window' A-q
m+ `Quit XDME' A-Q
mh Edit
m+ `Cut^AX' A-x
m+ `Copy^AC' A-c
m+ `Paste^AV' A-v
m+ `Erase' bdelete
m-
m+ `Undo^AZ' A-z
m-
m+ `Find next...' reqfind
m+ `Find prev...' As-f
m+ `Find next a-n' a-n
m+ `Find prev a-p' a-p
m-
m+ `Replace Next...' reqreplace
m+ `Replace Prev...' As-r
m+ `Rep. Next as-n' as-n
m+ `Rep. Prev as-p' as-p
m+ `Replace all' `push pos ifelse bl `goto block while cb `next if cb `ifelse x=1 `up last' left nextr'' goto end' `top repeat -1 nextr' pop auto'
mh Block
m+ `Move block a-m' bmove
m+ `Copy Block a-c' bcopy
m+ `Delete Block a-d' bdelete
m+ `Unhighlite a-u' a-u
m-
m+ `Print block a-p' bprintout
m+ `Save as...' barpsave
m-
m+ `Indent block a-i' a-i
m+ `Outdent block a-I' as-i
mh Move
m+ (Start of Text) (top first)
m+ (End of Text) (bottom last)
m-
m+ (Start of Line) first
m+ (1st Character) firstnb
m+ (End of Line) last
m-
m+ (Start of Word) (right wleft)
m+ (End of Word) (right wleft while ca right)
m-
m+ (Line...) reqgoto
m+ (Column...) reqcol
m-
mi Marker
mi+ (Set #1) (ping 1)
mi+ (Set #2) (ping 2)
mi+ (Set #3) (ping 3)
mi-
mi+ (Goto #1) (pong 1)
mi+ (Goto #2) (pong 2)
mi+ (Goto #3) (pong 3)
mh Macros
m+ (Start record) (recstart title (Record Started))
m+ (End record) (recend title (Record Ended))
m-
m+ (Play record) recplay
m+ (Source...) (reqfile (XDME Read Macro) P \$macroname set macroname \$(reqresult) source \$(macroname))
m+ (Save...) (reqfile (XDME Save Macro) SP \$macroname set macroname \$(reqresult) recsave \$(macroname))
m-
m+ (Command shell) opencmdshell
m+ (Execute command...) (reqstring (XDME Execute Command) () \$OkCncl \$lastcmd set lastcmd \$reqresult eval \$lastcmd)
mh Settings
m/ (Insert mode?) $insertmode (insertmode \$itemcheck)
m/ (ReadOnly mode?) $viewmode (viewmode \$itemcheck)
m-
m/ (Automatic indenting?) $autoindent (autoindent \$itemcheck)
m/ (Automatic splitting?) $autosplit (autosplit \$itemcheck)
m/ (Wordwrap?) $wordwrap (wordwrap \$itemcheck)
m+ (Right margin...) reqmargin
m+ (Left magrin...) reqparcol
m-
m/ (Global search?) $globalsearch (global \$itemcheck)
m/ (Case insensitive?) $ignorecase (ignorecase \$itemcheck)
m-
m+ (Font...) reqfont
m-
mi Advanced
mi/ (NON-AUISG paging?) $nicepaging (nicepaging \$itemcheck)
mi/ (Errors abort scripts?) $sourcebreaks (spc sourcebreaks \$itemcheck)
mi/ (Automatic unblock?) $autounblock (spc autounblock \$itemcheck)
mi/ (Backup mode?) $dobackup (spc dobackup \$itemcheck)
mi/ (Keep Cursor visible?) $followcursor (spc followcursor \$itemcheck)
mi/ (Keep icon window active?) $iconactive (spc iconactive \$itemcheck)
mi/ (Disable error requesters?) $norequest (spc norequest \$itemcheck)
mi/ (Show title?) $showtitle (spc showtitle \$itemcheck)
mi/ (Short lines?) $shortlines (spc shortlines \$itemcheck)
mi-
mi/ (Save tabulators?) $savetabs (spc savetabs \$itemcheck)
mi/ (Save only leading tabs?) $simpletabs (spc simpletabs \$itemcheck)
mi-
mi/ (Activated window 2 front?) $activetofront (spc activetofront \$itemcheck)
mi/ (Cycle through windows?) $windowcycling (spc windowcycling \$itemcheck)
mi-
mi/ (Debug mode?) $debug (spc debug \$itemcheck)
mi/ (View mode?) $viewmode (spc viewmode \$itemcheck)
mi Colors
mi+ (Text foreground...) reqfgpen
mi+ (Text background...) reqbgpen
mi-
mi+ (Block foreground...) reqhgpen
mi+ (Block background...) reqbbpen
mi-
mi+ (Title foreground...) reqtfpen
mi+ (Title background...) reqtbpen
mi/ (Intuition titles?) $windowtitles (spc windowtitles \$itemcheck)
mi More
mi+ (These settings cannot be saved) ()
mi-
mi+ (File pattern...) reqpattern
mi-
mi/ (Create icons?) $saveicons (spc saveicons \$itemcheck)
mi+ (Iconname ...) (reqfile (XDME Select Icon) P \$(iconname) set iconname \$(reqresult))
mi-
mi/ (AppIcon?) $appicon (spc appicon \$itemcheck)
mi+ (AppIconname ...) (reqfile (XDME Select Icon) P \$(appiconname) set appiconname \$(reqresult))
mi+ (AppIcontitle ...) (reqstring (XDME) (Enter the AppIcon Title!) \$OkCncl \$(appicontitle) set appicontitle \$(reqresult))
m-
# m+ (Load settings) loadconfig
m+ (Save settings) saveconfig
menuon
map A-p printout
map a-u unblock
map A-f reqfind
# mouse blocking
set _actlmb 254
map L-lmb `tomouse settoggle $_actlmb'
map L-mmo `if $_actlmb `bstart resettoggle $_actlmb menuoff' tomouse bend'
map u-lmb `if !$_actlmb menuon'
map uR-lmb u-lmb
map uRL-lmb u-lmb
map LR-rmb `unblock settoggle $_actlmb menuon'
map -ret return
# The following macros are for YADME compability (see YADME v1.0 (c) 1994 by Karl Lukas)
setmacro reqparcol 0 (reqnumber (XDME - Left margin) () \$OkCncl \$parcol 1 \$margin setparcol \$reqresult)
setmacro reqmargin 0 (reqnumber (XDME - Right margin) () \$OkCncl \$margin \$parcol 255 margin \$reqresult)
setmacro reqgoto 0 (reqnumber (XDME - Goto line) () \$OkCncl \$lineno 1 \$numlines goto \$reqresult)
setmacro reqtabstop 0 (reqnumber (XDME - Set tabwidth) () \$OkCncl \$tabstop 1 255 tabstop \$reqresult)
setmacro reqfind 0 (reqstring (XDME - Enter search string) () \$OkCncl \$findstr find \$reqresult)
setmacro clear 0 (newfile () chfilename unnamed)
setmacro reload 0 (modified off newfile \$filename)
setmacro cut 0 (copy bdelete)
setmacro paste 0 clipins
setmacro findfile 1 (select window=\$arg1)
setmacro upfast 0 (goto -2) rem (2 up)
setmacro downfast 0 (goto +2) rem (2 down)
setmacro aslsave 0 arpsave
setmacro aslload 0 arpload
setmacro aslfont 0 arpfont
setmacro aslinsfile 0 arpinsfile
# some other macros ...
setmacro printout 0 (push modified push savetabs savetabs off writeto \$printout 2 (pop auto) execute (run copy \$printout \$PRINTER))
setmacro bprintout 0 (push modified push savetabs savetabs off bsave \$printout 2 (pop auto) execute (run copy \$printout \$PRINTER))
setmacro reqfgpen 0 (reqpalette (XDME - Text foreground) \$fgpen fgpen \$reqresult)
setmacro reqbgpen 0 (reqpalette (XDME - Text background) \$bgpen bgpen \$reqresult)
setmacro reqhgpen 0 (reqpalette (XDME - Block foreground) \$hgpen hgpen \$reqresult)
setmacro reqbbpen 0 (reqpalette (XDME - Block background) \$bbpen bbpen \$reqresult)
setmacro reqtfpen 0 (reqpalette (XDME - Title foreground) \$tfpen tfpen \$reqresult)
setmacro reqtbpen 0 (reqpalette (XDME - Title background) \$tbpen tbpen \$reqresult)
setmacro reqpattern 0 (reqstring (XDME - Filerequester pattern) () \$OkCncl \$pattern pattern \$reqresult)
setmacro reqcol 0 (reqnumber (XDME - Goto column) () \$OkCncl \$colno 1 255 col \$reqresult)
# Source users .edrc-file
source s:.edrc_user
# come around w/ SAS' "Edit" Icons
if (\$fname="Edit) (chfilename unnamed)
if (\$fname="unnamed) (arpload)
#
# Some important notes to the shown menu:
#
# 1. Menu shortcuts are CASE INSENSITIVE; this behaviour can not
# be fixed, since it is a 'feature' of Intuition ...
#
# 2. Changing a System flag immediately (e.g. via CmdShell,
# w/ loadconfig, or Keyboard macros) won't change the
# according Menu - this might be confusing ...
#
# 3. Many SETTINGs are PROJECT values, so changing them in
# project A won't change them in project B; the MENUstrips
# however are GLOBAL, so they do not change from one project
# to the other ...
#
#
# the following macros used to be builtin
#
setmacro alias 2 (setmacro \$arg1 0 \$arg2)
setmacro unalias 1 (unsetmacro \$arg1)
setmacro aslload 0 (arpload)
setmacro aslinsfile 0 (arpinsfile)
setmacro aslfont 0 (arpfont)
setmacro aslsave 0 (arpsave)
setmacro firstwindow 0 (select f)
setmacro lastwindow 0 (select l)
setmacro nextwindow 0 (select n)
setmacro prevwindow 0 (select p)
setmacro so 0 (if m saveold)
setmacro sourcebreaks 1 (spc sourcebreaks \$arg1)